home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / turbovis / tvtoys04.zip / CHECKVT.PAS next >
Pascal/Delphi Source File  |  1993-12-07  |  2KB  |  56 lines
  1. (***************************************************************************
  2.   CheckVT include
  3.   Check what video types automatically?
  4.   PJB November 21, 1993, Internet mail to d91-pbr@nada.kth.se
  5.   Copyright 1993, All Rights Reserved
  6.   Free source, use at your own risk.
  7.   If modified, please state so if you pass this around.
  8. ***************************************************************************)
  9.  
  10. (*******************************************************************
  11.   This code generated by Dialog Design 4.0 available by anonymous
  12.   ftp to garbo.uwasa.fi  /pc/turbovis. Thanks to David Baldwin
  13. *******************************************************************)
  14. function MakeVideoTestDialog : PDialog;
  15.   var
  16.     Dlg : PDialog;
  17.     R : TRect;
  18.     Control : PView;
  19. begin
  20.   R.Assign(17, 6, 63, 17);
  21.   New(Dlg, Init(R, 'Automatic Video Detection'));
  22.   Dlg^.Options := Dlg^.Options or ofCentered;
  23.  
  24.   R.Assign(15, 3, 30, 5);
  25.   Control := New(PCheckboxes, Init(R,
  26.     NewSItem('VESA',
  27.     NewSItem('Video 7', Nil))));
  28.   Control^.HelpCtx := hctoyVTCheckVesa;
  29.   Dlg^.Insert(Control);
  30.  
  31.   R.Assign(12, 2, 34, 3);
  32.   Dlg^.Insert(New(PLabel, Init(R, 'Automatically detect:', Control)));
  33.  
  34.   R.Assign(6, 8, 16, 10);
  35.   Control := New(PButton, Init(R, 'O~K~', cmOK, bfDefault));
  36.   Control^.HelpCtx := hcOK;
  37.   Dlg^.Insert(Control);
  38.  
  39.   R.Assign(18, 8, 28, 10);
  40.   Control := New(PButton, Init(R, 'Cancel', cmCancel, bfLeftJust));
  41.   Control^.HelpCtx := hcCancel;
  42.   Dlg^.Insert(Control);
  43.  
  44.   R.Assign(30, 8, 40, 10);
  45.   Control := New(PButton, Init(R, 'Help', cmHelp, bfGrabFocus));
  46.   Control^.HelpCtx := hctoyVTDialogHelp;
  47.   Dlg^.Insert(Control);
  48.  
  49.   R.Assign(8, 6, 38, 7);
  50.   Control := New(PStaticText, Init(R, '(if unsure, try checking both)'));
  51.   Dlg^.Insert(Control);
  52.  
  53.   Dlg^.SelectNext(False);
  54.   MakeVideoTestDialog := Dlg;
  55. end;
  56.